(describe-language-environment):

Don't alter input-method-alist.

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index e469d573e62d74157887cec00b5e65ad91e1c7e7..c05129bfc17a1c1355f761d8e1a6045edc21171a 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -1379,7 +1379,7 @@ of buffer-file-coding-system set by this function."
              (princ-list "  " str)
              (terpri))))
       (let ((input-method (get-language-info language-name 'input-method))
-           (l input-method-alist))
+           (l (copy-sequence input-method-alist)))
        (princ "Input methods")
        (when input-method
          (princ (format " (default, %s)" input-method))